home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / WWW / AWeb3 / Docs / _starttcpscript < prev    next >
Encoding:
Text File  |  1997-06-16  |  1.3 KB  |  50 lines
  1. ; Sample script to start a TCP program that does not return when
  2. ; the session is active.
  3. ;
  4. ; Note that this is the first part, you will have to change the
  5. ; file _starttcpscript2 too.
  6. ;
  7. ; To use this script, configure AWeb to use for its Start TCP program:
  8. ;    command = (path)/_starttcpscript
  9. ;  arguments = (none)
  10. ;
  11. ; Make sure to change the path name for _starttcpscript2 below to the one
  12. ; you're actually using.
  13. ; =======================================================================
  14.  
  15. .key DUMMY/K ; so we can use <$$>
  16. FailAt 10
  17.  
  18. ; Set variable to our process number so the _starttcpscript2 script
  19. ; can break us if the connection fails
  20.  
  21. SetEnv STARTTCPPROCESS <$$>
  22.  
  23. ; Start the TCP stack in a separate CLI
  24. ;
  25. ; ***********************************************************************
  26. ; *** Change the path in the next line to the actual path where 
  27. ; *** _starttcpscript2 can be found:
  28.  
  29. Run Execute AWeb-II:docs/_starttcpscript2
  30.  
  31. ; ***********************************************************************
  32.  
  33. ; Wait until the tcp library is present.
  34.  
  35. FailAt 30
  36. Lab WaitForLib
  37.  
  38. Wait 2
  39.  
  40. Version >NIL: "bsdsocket.library"
  41.  
  42. If WARN
  43.   Skip Back WaitForLib
  44. EndIf
  45.  
  46. ; Unset the variable holding our process number so if the TCP program
  47. ; fails after some time the second script won't break some innocent process
  48.  
  49. UnSetEnv STARTTCPPROCESS
  50.